home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
c_wndw.arc
/
ACCEPT2.C
< prev
next >
Wrap
Text File
|
1990-01-28
|
512b
|
18 lines
/* (c) Marietta Systems, Inc. 1987
* All rights reserved
*
* Demonstration program for accept function
*/
#include "mtest.h"
void main() {
int m = 0, x = 1;
char date_fld[3];
clr_scrn("Accept test - 2");
dateread(date_fld);
while(!m) {
display("Enter date field ", x++, 1, high);
m = accept(date_fld, date, alt_reverse, 8, 0);
}
goodbye(0);
}